﻿Imports PadovadoAPI
Imports System.Data

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub BtnIscrivi_Click(sender As Object, e As System.EventArgs) Handles BtnIscrivi.Click
        Dim msg As String
        If Not IsNothing(TBMail.Text) Then
            msg = Iscrivi()

        End If
        LblMessage.Text = msg
    End Sub

    Public Function Iscrivi() As String
        Dim sql As String = ""
        Dim dbo As New DBObject

        Try
            sql = "INSERT INTO IndirizziMail VALUES ('" & TBNome.Text & "', '" & TBMail.Text & "', 0)"
            If dbo.ExecuteNonQuery(sql, Nothing, CommandType.Text) > 0 Then
                Return "Iscrizione avvenuta correttamente!! Da oggi in poi inizierai a ricevere la nostra newsletter. Torna a trovarci quando vuoi!!"
            Else
                Return "Ooops... qualcosa è andato storto nella registrazione... Ti chiediamo di riprovare..."
            End If


        Catch e As Exception

        End Try

    End Function
End Class
